home *** CD-ROM | disk | FTP | other *** search
/ Zoom 2 / Zoom - Release 2 (1996)(Active Software)[!].iso / programming / amos / amos_turbo / demos / multi_blit.amos / multi_blit.amosSourceCode
Encoding:
AMOS Source Code  |  1980-08-18  |  581 b   |  22 lines
  1. Screen Open 0,320,200,2,Lowres
  2. TEKST$="HELLO GUYS...MULTI BLIT IS NOW RUNNING UNDER INTERRUPTS !!!"
  3. _LENGTE=Len(TEKST$)
  4. EERSTE_LETTER=1
  5. LAATSTE_LETTER=EERSTE_LETTER+_LENGTE
  6. LETTER=1
  7.  Extension_12_031E 0,1,0,104 To 320,111,-1
  8.  Extension_12_031E 0,2,0,122 To 320,129,1
  9.  Extension_12_04CA 1 To 2
  10. Repeat 
  11.    COUNT=0
  12.    Text 300,110,Mid$(TEKST$,LETTER,1)
  13.    Text 0,128,Mid$(TEKST$,LETTER,1)
  14.    Add LETTER,1,EERSTE_LETTER To LAATSTE_LETTER
  15.    Repeat 
  16.       Wait Vbl 
  17.       Inc COUNT
  18.    Until COUNT>10
  19. Until Extension_12_03B8 
  20.  Extension_12_04DE 
  21.  Extension_12_0354 1
  22.  Extension_12_0354 2